home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1986-06-06 | 9.9 KB | [TEXT/MEDT] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Compact Compressed (Unix) (archive/compact)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Fri Jun 6 11:50:24 1986, modified Fri Jun 6 11:50:24 1986, creator 'MEDT', type ASCII, 9355 bytes "Front Man.c" , at 0x250b 491 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [MEDT] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 46 72 6f 6e 74 20 | 4d 61 6e 2e 63 00 00 00 |..Front |Man.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 45 44 | 54 01 00 00 00 00 00 00 |.TEXTMED|T.......|
|00000050| 00 00 00 00 00 24 8b 00 | 00 01 eb 9b 0c b7 40 9b |.....$..|......@.|
|00000060| 0c b7 40 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..@.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 60 d4 00 00 |........|....`...|
|00000080| 2f 2a 20 20 54 68 65 20 | 46 72 6f 6e 74 20 4d 61 |/* The |Front Ma|
|00000090| 6e 2c 20 56 65 72 2e 20 | 31 2e 30 0d 20 2a 20 20 |n, Ver. |1.0. * |
|000000a0| 46 72 61 6e 6b 20 41 6c | 76 69 61 6e 69 0d 20 2a |Frank Al|viani. *|
|000000b0| 0d 20 2a 20 20 54 68 69 | 73 20 76 65 72 73 69 6f |. * Thi|s versio|
|000000c0| 6e 20 64 6f 65 73 20 4e | 4f 54 20 73 75 70 70 6f |n does N|OT suppo|
|000000d0| 72 74 20 64 65 73 6b 20 | 61 63 63 65 73 73 6f 72 |rt desk |accessor|
|000000e0| 69 65 73 20 2d 20 69 74 | 20 73 65 65 6d 65 64 20 |ies - it| seemed |
|000000f0| 75 6e 6e 65 63 65 73 73 | 61 72 79 2e 0d 20 2a 0d |unnecess|ary.. *.|
|00000100| 20 2a 20 20 38 3a 35 35 | 3a 31 33 20 41 4d 20 20 | * 8:55|:13 AM |
|00000110| 36 2f 36 2f 38 36 0d 20 | 2a 2f 0d 23 4f 70 74 69 |6/6/86. |*/.#Opti|
|00000120| 6f 6e 73 20 2b 5a 0d 0d | 23 69 6e 63 6c 75 64 65 |ons +Z..|#include|
|00000130| 20 22 73 74 64 69 6f 2e | 68 22 0d 23 69 6e 63 6c | "stdio.|h".#incl|
|00000140| 75 64 65 20 22 6d 61 63 | 64 65 66 73 2e 68 22 0d |ude "mac|defs.h".|
|00000150| 23 69 6e 63 6c 75 64 65 | 20 22 6d 61 63 43 64 65 |#include| "macCde|
|00000160| 66 73 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |fs.h".#i|nclude "|
|00000170| 64 69 61 6c 6f 67 2e 68 | 22 0d 23 69 6e 63 6c 75 |dialog.h|".#inclu|
|00000180| 64 65 20 22 65 76 65 6e | 74 73 2e 68 22 0d 23 69 |de "even|ts.h".#i|
|00000190| 6e 63 6c 75 64 65 20 22 | 6d 65 6e 75 2e 68 22 0d |nclude "|menu.h".|
|000001a0| 23 69 6e 63 6c 75 64 65 | 20 22 6d 65 6d 6f 72 79 |#include| "memory|
|000001b0| 2e 68 22 0d 23 69 6e 63 | 6c 75 64 65 20 22 4f 73 |.h".#inc|lude "Os|
|000001c0| 49 4f 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |IO.h".#i|nclude "|
|000001d0| 70 61 63 6b 61 67 65 73 | 2e 68 22 0d 0d 2f 2a 20 |packages|.h"../* |
|000001e0| 63 6f 6e 73 74 61 6e 74 | 73 20 2a 2f 0d 23 64 65 |constant|s */.#de|
|000001f0| 66 69 6e 65 20 4e 55 4c | 4c 20 30 0d 23 64 65 66 |fine NUL|L 0.#def|
|00000200| 69 6e 65 20 45 56 45 4e | 54 4d 41 53 4b 20 2d 31 |ine EVEN|TMASK -1|
|00000210| 0d 23 64 65 66 69 6e 65 | 20 50 42 53 65 74 56 6f |.#define| PBSetVo|
|00000220| 6c 28 70 62 2c 20 61 29 | 09 09 70 62 43 61 6c 6c |l(pb, a)|..pbCall|
|00000230| 28 70 62 2c 20 61 2c 20 | 30 78 41 30 31 35 29 0d |(pb, a, |0xA015).|
|00000240| 0d 2f 2a 20 6d 65 6e 75 | 20 63 6f 6e 73 74 61 6e |./* menu| constan|
|00000250| 74 73 20 2a 2f 0d 23 64 | 65 66 69 6e 65 20 41 50 |ts */.#d|efine AP|
|00000260| 50 4c 45 20 31 0d 23 64 | 65 66 69 6e 65 20 20 41 |PLE 1.#d|efine A|
|00000270| 42 4f 55 54 20 31 0d 23 | 64 65 66 69 6e 65 20 46 |BOUT 1.#|define F|
|00000280| 49 4c 45 20 20 32 0d 23 | 64 65 66 69 6e 65 20 20 |ILE 2.#|define |
|00000290| 50 49 43 4b 20 31 0d 23 | 64 65 66 69 6e 65 20 20 |PICK 1.#|define |
|000002a0| 4c 41 55 4e 43 48 20 32 | 0d 23 64 65 66 69 6e 65 |LAUNCH 2|.#define|
|000002b0| 20 20 51 55 49 54 20 33 | 0d 0d 23 64 65 66 69 6e | QUIT 3|..#defin|
|000002c0| 65 20 41 50 50 50 41 52 | 4d 48 41 4e 44 4c 45 20 |e APPPAR|MHANDLE |
|000002d0| 20 20 30 78 30 61 65 63 | 0d 2f 2a 20 66 69 6e 64 | 0x0aec|./* find|
|000002e0| 65 72 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 70 |er appli|cation p|
|000002f0| 61 72 61 6d 65 74 65 72 | 20 69 6e 66 6f 20 2a 2f |arameter| info */|
|00000300| 0d 74 79 70 65 64 65 66 | 20 73 74 72 75 63 74 20 |.typedef| struct |
|00000310| 7b 0d 20 20 20 20 20 20 | 20 20 73 68 6f 72 74 20 |{. | short |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 76 52 65 66 4e 75 | | vRefNu|
|00000330| 6d 3b 0d 20 20 20 20 20 | 20 20 20 75 6e 73 69 67 |m;. | unsig|
|00000340| 6e 65 64 20 6c 6f 6e 67 | 20 20 20 66 54 79 70 65 |ned long| fType|
|00000350| 3b 0d 20 20 20 20 20 20 | 20 20 73 68 6f 72 74 20 |;. | short |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 76 65 72 73 4e 75 | | versNu|
|00000370| 6d 3b 0d 20 20 20 20 20 | 20 20 20 53 74 72 32 35 |m;. | Str25|
|00000380| 35 20 20 20 20 20 20 20 | 20 20 20 66 4e 61 6d 65 |5 | fName|
|00000390| 3b 0d 7d 20 41 70 70 46 | 69 6c 65 3b 0d 0d 74 79 |;.} AppF|ile;..ty|
|000003a0| 70 65 64 65 66 20 73 74 | 72 75 63 74 20 7b 0d 20 |pedef st|ruct {. |
|000003b0| 20 20 20 50 74 72 20 20 | 20 20 20 70 67 6d 50 74 | Ptr | pgmPt|
|000003c0| 72 3b 0d 20 20 20 20 6c | 6f 6e 67 20 20 20 20 64 |r;. l|ong d|
|000003d0| 75 6d 6d 79 3b 20 20 20 | 20 2f 2a 20 6e 6f 72 6d |ummy; | /* norm|
|000003e0| 61 6c 20 73 65 74 74 69 | 6e 67 20 3d 20 30 20 2a |al setti|ng = 0 *|
|000003f0| 2f 0d 7d 20 6c 61 75 6e | 63 68 53 74 75 66 66 3b |/.} laun|chStuff;|
|00000400| 20 0d 0d 65 78 74 65 72 | 6e 20 73 68 6f 72 74 20 | ..exter|n short |
|00000410| 41 64 64 41 70 70 46 69 | 6c 65 28 29 2c 20 4d 61 |AddAppFi|le(), Ma|
|00000420| 63 43 56 52 65 66 4e 75 | 6d 3b 0d 65 78 74 65 72 |cCVRefNu|m;.exter|
|00000430| 6e 20 76 6f 69 64 20 53 | 65 74 41 70 70 4d 65 73 |n void S|etAppMes|
|00000440| 73 61 67 65 28 29 2c 20 | 5a 65 72 6f 41 70 70 46 |sage(), |ZeroAppF|
|00000450| 69 6c 65 73 28 29 3b 0d | 0d 2f 2a 20 47 6c 6f 62 |iles();.|./* Glob|
|00000460| 61 6c 73 20 2a 2f 0d 4d | 65 6e 75 48 61 6e 64 6c |als */.M|enuHandl|
|00000470| 65 20 20 20 20 20 20 41 | 70 70 6c 65 4d 48 2c 20 |e A|ppleMH, |
|00000480| 46 69 6c 65 4d 48 3b 0d | 45 76 65 6e 74 52 65 63 |FileMH;.|EventRec|
|00000490| 6f 72 64 20 20 20 20 20 | 74 68 65 45 76 65 6e 74 |ord |theEvent|
|000004a0| 3b 0d 6c 61 75 6e 63 68 | 53 74 75 66 66 20 20 20 |;.launch|Stuff |
|000004b0| 20 20 6c 61 75 6e 63 68 | 50 61 72 6d 73 3b 0d 0d | launch|Parms;..|
|000004c0| 6d 61 69 6e 28 29 0d 7b | 0d 73 68 6f 72 74 20 20 |main().{|.short |
|000004d0| 20 20 20 20 20 6d 6f 75 | 73 65 5f 70 61 72 74 2c | mou|se_part,|
|000004e0| 20 61 6c 65 72 74 5f 69 | 74 65 6d 3b 0d 6c 6f 6e | alert_i|tem;.lon|
|000004f0| 67 20 20 20 20 20 20 20 | 20 6d 65 6e 75 5f 73 65 |g | menu_se|
|00000500| 6c 65 63 74 69 6f 6e 3b | 0d 57 69 6e 64 6f 77 50 |lection;|.WindowP|
|00000510| 74 72 20 20 20 74 57 69 | 6e 64 6f 77 3b 20 20 20 |tr tWi|ndow; |
|00000520| 20 20 20 20 20 2f 2a 20 | 64 75 6d 6d 79 20 73 6f | /* |dummy so|
|00000530| 20 77 65 20 63 61 6e 20 | 75 73 65 20 46 69 6e 64 | we can |use Find|
|00000540| 57 69 6e 64 6f 77 20 2a | 2f 0d 0d 20 20 20 20 49 |Window *|/.. I|
|00000550| 6e 69 74 41 6c 6c 28 29 | 3b 20 20 20 20 20 20 2f |nitAll()|; /|
|00000560| 2a 20 69 6e 69 74 69 61 | 6c 69 7a 65 20 76 61 72 |* initia|lize var|
|00000570| 69 6f 75 73 20 6d 61 6e | 61 67 65 72 73 20 2a 2f |ious man|agers */|
|00000580| 0d 20 20 20 20 0d 20 20 | 20 20 2f 2a 20 55 73 75 |. . | /* Usu|
|00000590| 61 6c 20 4d 61 69 6e 20 | 4c 6f 6f 70 20 2a 2f 0d |al Main |Loop */.|
|000005a0| 20 20 20 20 77 68 69 6c | 65 20 28 31 29 0d 20 20 | whil|e (1). |
|000005b0| 20 20 20 20 7b 20 69 66 | 20 28 47 65 74 4e 65 78 | { if| (GetNex|
|000005c0| 74 45 76 65 6e 74 28 45 | 56 45 4e 54 4d 41 53 4b |tEvent(E|VENTMASK|
|000005d0| 2c 20 26 74 68 65 45 76 | 65 6e 74 29 29 0d 20 20 |, &theEv|ent)). |
|000005e0| 20 20 20 20 20 20 20 20 | 73 77 69 74 63 68 28 74 | |switch(t|
|000005f0| 68 65 45 76 65 6e 74 2e | 77 68 61 74 29 0d 20 20 |heEvent.|what). |
|00000600| 20 20 20 20 20 20 20 20 | 7b 20 63 61 73 65 20 6d | |{ case m|
|00000610| 6f 75 73 65 44 6f 77 6e | 3a 0d 20 20 20 20 20 20 |ouseDown|:. |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 75 73 65 5f | | mouse_|
|00000630| 70 61 72 74 20 3d 20 46 | 69 6e 64 57 69 6e 64 6f |part = F|indWindo|
|00000640| 77 28 26 74 68 65 45 76 | 65 6e 74 2e 77 68 65 72 |w(&theEv|ent.wher|
|00000650| 65 2c 20 26 74 57 69 6e | 64 6f 77 29 3b 0d 20 20 |e, &tWin|dow);. |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 77 | | sw|
|00000670| 69 74 63 68 20 28 20 6d | 6f 75 73 65 5f 70 61 72 |itch ( m|ouse_par|
|00000680| 74 20 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |t ). | |
|00000690| 20 20 20 20 20 20 7b 20 | 63 61 73 65 20 69 6e 4d | { |case inM|
|000006a0| 65 6e 75 42 61 72 3a 0d | 20 20 20 20 20 20 20 20 |enuBar:.| |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006c0| 6d 65 6e 75 5f 73 65 6c | 65 63 74 69 6f 6e 20 3d |menu_sel|ection =|
|000006d0| 20 4d 65 6e 75 53 65 6c | 65 63 74 28 26 74 68 65 | MenuSel|ect(&the|
|000006e0| 45 76 65 6e 74 2e 77 68 | 65 72 65 29 3b 0d 20 20 |Event.wh|ere);. |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000700| 20 20 20 20 20 20 44 6f | 43 6f 6d 6d 61 6e 64 28 | Do|Command(|
|00000710| 6d 65 6e 75 5f 73 65 6c | 65 63 74 69 6f 6e 29 3b |menu_sel|ection);|
|00000720| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000730| 20 20 20 20 20 20 20 20 | 20 62 72 65 61 6b 3b 0d | | break;.|
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000750| 20 20 20 20 64 65 66 61 | 75 6c 74 3a 20 62 72 65 | defa|ult: bre|
|00000760| 61 6b 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ak;. | |
|00000770| 20 20 20 20 20 20 7d 0d | 20 20 20 20 20 20 20 20 | }.| |
|00000780| 20 20 20 20 20 20 20 20 | 62 72 65 61 6b 3b 0d 20 | |break;. |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 73 65 20 | | case |
|000007a0| 6b 65 79 44 6f 77 6e 3a | 20 20 20 2f 2a 20 6f 6e |keyDown:| /* on|
|000007b0| 6c 79 20 66 6f 72 20 6b | 65 79 62 6f 61 72 64 20 |ly for k|eyboard |
|000007c0| 73 68 6f 72 74 63 75 74 | 73 20 2a 2f 0d 20 20 20 |shortcut|s */. |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 66 20 | | if |
|000007e0| 28 74 68 65 45 76 65 6e | 74 2e 6d 6f 64 69 66 69 |(theEven|t.modifi|
|000007f0| 65 72 73 20 26 20 63 6d | 64 4b 65 79 29 0d 20 20 |ers & cm|dKey). |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000810| 7b 20 6d 65 6e 75 5f 73 | 65 6c 65 63 74 69 6f 6e |{ menu_s|election|
|00000820| 20 3d 20 4d 65 6e 75 4b | 65 79 28 74 68 65 45 76 | = MenuK|ey(theEv|
|00000830| 65 6e 74 2e 6d 65 73 73 | 61 67 65 20 26 20 30 78 |ent.mess|age & 0x|
|00000840| 46 46 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |FF);. | |
|00000850| 20 20 20 20 20 20 20 20 | 20 44 6f 43 6f 6d 6d 61 | | DoComma|
|00000860| 6e 64 28 6d 65 6e 75 5f | 73 65 6c 65 63 74 69 6f |nd(menu_|selectio|
|00000870| 6e 29 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |n);. | |
|00000880| 20 20 20 20 20 20 7d 0d | 20 20 20 20 20 20 20 20 | }.| |
|00000890| 20 20 20 20 20 20 20 20 | 62 72 65 61 6b 3b 0d 20 | |break;. |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 73 65 20 | | case |
|000008b0| 61 75 74 6f 4b 65 79 3a | 20 20 20 20 20 20 20 2f |autoKey:| /|
|000008c0| 2a 20 6e 6f 20 76 61 6c | 69 64 20 75 73 65 20 66 |* no val|id use f|
|000008d0| 6f 72 20 41 75 74 6f 4b | 65 79 20 65 76 65 6e 74 |or AutoK|ey event|
|000008e0| 73 20 2a 2f 0d 20 20 20 | 20 20 20 20 20 20 20 20 |s */. | |
|000008f0| 20 63 61 73 65 20 75 70 | 64 61 74 65 45 76 74 3a | case up|dateEvt:|
|00000900| 20 20 20 20 20 2f 2a 20 | 6e 6f 20 77 69 6e 64 6f | /* |no windo|
|00000910| 77 73 2c 20 73 6f 2e 2e | 2e 2e 20 2a 2f 0d 20 20 |ws, so..|.. */. |
|00000920| 20 20 20 20 20 20 20 20 | 20 20 63 61 73 65 20 61 | | case a|
|00000930| 63 74 69 76 61 74 65 45 | 76 74 3a 0d 20 20 20 20 |ctivateE|vt:. |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 72 65 61 | | brea|
|00000950| 6b 3b 0d 20 20 20 20 20 | 20 20 20 20 20 7d 0d 20 |k;. | }. |
|00000960| 20 20 20 20 20 7d 0d 7d | 0d 0d 49 6e 69 74 41 6c | }.}|..InitAl|
|00000970| 6c 28 29 0d 7b 0d 20 20 | 20 20 49 6e 69 74 4d 65 |l().{. | InitMe|
|00000980| 6e 75 73 28 29 3b 0d 20 | 20 20 20 54 45 49 6e 69 |nus();. | TEIni|
|00000990| 74 28 29 3b 0d 20 20 20 | 20 49 6e 69 74 44 69 61 |t();. | InitDia|
|000009a0| 6c 6f 67 73 28 4e 55 4c | 4c 29 3b 20 20 20 20 20 |logs(NUL|L); |
|000009b0| 20 2f 2a 20 6e 6f 20 72 | 65 63 6f 76 65 72 79 20 | /* no r|ecovery |
|000009c0| 2a 2f 0d 20 20 20 20 46 | 6c 75 73 68 45 76 65 6e |*/. F|lushEven|
|000009d0| 74 73 28 30 78 30 30 30 | 30 46 46 46 46 29 3b 20 |ts(0x000|0FFFF); |
|000009e0| 2f 2a 20 6b 69 6c 6c 20 | 27 65 6d 20 61 6c 6c 2c |/* kill |'em all,|
|000009f0| 20 47 6f 64 27 6c 6c 20 | 6b 6e 6f 77 20 68 69 73 | God'll |know his|
|00000a00| 20 6f 77 6e 20 2a 2f 0d | 20 20 20 20 49 6e 69 74 | own */.| Init|
|00000a10| 43 75 72 73 6f 72 28 29 | 3b 0d 20 20 20 20 5a 65 |Cursor()|;. Ze|
|00000a20| 72 6f 41 70 70 46 69 6c | 65 73 28 29 3b 0d 0d 20 |roAppFil|es();.. |
|00000a30| 20 20 20 41 70 70 6c 65 | 4d 48 20 3d 20 4e 65 77 | Apple|MH = New|
|00000a40| 4d 65 6e 75 28 41 50 50 | 4c 45 2c 22 5c 70 5c 30 |Menu(APP|LE,"\p\0|
|00000a50| 32 34 22 29 3b 0d 20 20 | 20 20 46 69 6c 65 4d 48 |24");. | FileMH|
|00000a60| 20 20 3d 20 47 65 74 4d | 65 6e 75 28 46 49 4c 45 | = GetM|enu(FILE|
|00000a70| 29 3b 0d 20 20 20 20 41 | 70 70 65 6e 64 4d 65 6e |);. A|ppendMen|
|00000a80| 75 28 41 70 70 6c 65 4d | 48 2c 20 22 5c 70 41 62 |u(AppleM|H, "\pAb|
|00000a90| 6f 75 74 20 54 68 65 20 | 46 72 6f 6e 74 20 4d 61 |out The |Front Ma|
|00000aa0| 6e 3b 28 2d 3b 22 29 3b | 0d 20 20 20 20 49 6e 73 |n;(-;");|. Ins|
|00000ab0| 65 72 74 4d 65 6e 75 28 | 41 70 70 6c 65 4d 48 2c |ertMenu(|AppleMH,|
|00000ac0| 20 30 29 3b 0d 20 20 20 | 20 49 6e 73 65 72 74 4d | 0);. | InsertM|
|00000ad0| 65 6e 75 28 46 69 6c 65 | 4d 48 2c 20 30 29 3b 0d |enu(File|MH, 0);.|
|00000ae0| 20 20 20 20 44 72 61 77 | 4d 65 6e 75 42 61 72 28 | Draw|MenuBar(|
|00000af0| 29 3b 20 20 2f 2a 20 6d | 61 6b 65 20 69 74 20 76 |); /* m|ake it v|
|00000b00| 69 73 69 62 6c 65 20 2a | 2f 0d 7d 0d 0d 41 62 6f |isible *|/.}..Abo|
|00000b10| 75 74 42 6f 78 28 29 0d | 7b 0d 44 69 61 6c 6f 67 |utBox().|{.Dialog|
|00000b20| 52 65 63 6f 72 64 20 20 | 20 20 61 62 6f 75 74 3b |Record | about;|
|00000b30| 0d 44 69 61 6c 6f 67 50 | 74 72 20 20 20 20 20 20 |.DialogP|tr |
|00000b40| 20 61 62 6f 75 74 5f 70 | 74 72 3b 0d 73 68 6f 72 | about_p|tr;.shor|
|00000b50| 74 20 20 20 20 20 20 20 | 20 20 20 20 69 74 65 6d |t | item|
|00000b60| 5f 68 69 74 3b 0d 0d 20 | 20 20 20 61 62 6f 75 74 |_hit;.. | about|
|00000b70| 5f 70 74 72 20 3d 20 47 | 65 74 4e 65 77 44 69 61 |_ptr = G|etNewDia|
|00000b80| 6c 6f 67 28 32 35 36 2c | 20 26 61 62 6f 75 74 2c |log(256,| &about,|
|00000b90| 20 2d 31 29 3b 0d 20 20 | 20 20 4d 6f 64 61 6c 44 | -1);. | ModalD|
|00000ba0| 69 61 6c 6f 67 28 4e 55 | 4c 4c 2c 20 26 69 74 65 |ialog(NU|LL, &ite|
|00000bb0| 6d 5f 68 69 74 29 3b 0d | 20 20 20 20 43 6c 6f 73 |m_hit);.| Clos|
|00000bc0| 65 44 69 61 6c 6f 67 28 | 61 62 6f 75 74 5f 70 74 |eDialog(|about_pt|
|00000bd0| 72 29 3b 0d 7d 0d 0d 2f | 2a 20 53 74 61 6e 64 61 |r);.}../|* Standa|
|00000be0| 72 64 20 4d 65 6e 75 20 | 74 72 65 65 20 20 20 2a |rd Menu |tree *|
|00000bf0| 2f 0d 44 6f 43 6f 6d 6d | 61 6e 64 28 6d 65 6e 75 |/.DoComm|and(menu|
|00000c00| 5f 63 68 6f 69 63 65 29 | 0d 6c 6f 6e 67 20 20 20 |_choice)|.long |
|00000c10| 20 6d 65 6e 75 5f 63 68 | 6f 69 63 65 3b 0d 7b 0d | menu_ch|oice;.{.|
|00000c20| 73 68 6f 72 74 20 20 20 | 6d 65 6e 75 2c 20 69 74 |short |menu, it|
|00000c30| 65 6d 3b 0d 0d 20 20 20 | 20 6d 65 6e 75 20 3d 20 |em;.. | menu = |
|00000c40| 48 69 57 6f 72 64 28 6d | 65 6e 75 5f 63 68 6f 69 |HiWord(m|enu_choi|
|00000c50| 63 65 29 3b 0d 20 20 20 | 20 69 74 65 6d 20 3d 20 |ce);. | item = |
|00000c60| 4c 6f 57 6f 72 64 28 6d | 65 6e 75 5f 63 68 6f 69 |LoWord(m|enu_choi|
|00000c70| 63 65 29 3b 0d 20 20 20 | 20 73 77 69 74 63 68 20 |ce);. | switch |
|00000c80| 28 6d 65 6e 75 29 0d 20 | 20 20 20 20 20 7b 20 63 |(menu). | { c|
|00000c90| 61 73 65 20 41 50 50 4c | 45 3a 0d 20 20 20 20 20 |ase APPL|E:. |
|00000ca0| 20 20 20 20 20 41 62 6f | 75 74 42 6f 78 28 29 3b | Abo|utBox();|
|00000cb0| 0d 20 20 20 20 20 20 20 | 20 20 20 62 72 65 61 6b |. | break|
|00000cc0| 3b 0d 20 20 20 20 20 20 | 20 20 63 61 73 65 20 46 |;. | case F|
|00000cd0| 49 4c 45 3a 0d 20 20 20 | 20 20 20 20 20 20 20 73 |ILE:. | s|
|00000ce0| 77 69 74 63 68 20 28 69 | 74 65 6d 29 0d 20 20 20 |witch (i|tem). |
|00000cf0| 20 20 20 20 20 20 20 20 | 20 7b 20 63 61 73 65 20 | | { case |
|00000d00| 50 49 43 4b 3a 0d 20 20 | 20 20 20 20 20 20 20 20 |PICK:. | |
|00000d10| 20 20 20 20 20 20 67 65 | 74 46 69 6c 65 73 28 29 | ge|tFiles()|
|00000d20| 3b 20 62 72 65 61 6b 3b | 0d 20 20 20 20 20 20 20 |; break;|. |
|00000d30| 20 20 20 20 20 20 20 63 | 61 73 65 20 4c 41 55 4e | c|ase LAUN|
|00000d40| 43 48 3a 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |CH:. | |
|00000d50| 20 20 20 20 4c 61 75 6e | 63 68 49 74 28 29 3b 20 | Laun|chIt(); |
|00000d60| 62 72 65 61 6b 3b 0d 20 | 20 20 20 20 20 20 20 20 |break;. | |
|00000d70| 20 20 20 20 20 63 61 73 | 65 20 51 55 49 54 3a 0d | cas|e QUIT:.|
|00000d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d90| 45 78 69 74 54 6f 53 68 | 65 6c 6c 28 29 3b 0d 20 |ExitToSh|ell();. |
|00000da0| 20 20 20 20 20 20 20 20 | 20 20 20 7d 0d 20 20 20 | | }. |
|00000db0| 20 20 20 20 20 20 20 62 | 72 65 61 6b 3b 0d 20 20 | b|reak;. |
|00000dc0| 20 20 20 20 7d 0d 20 20 | 20 20 48 69 6c 69 74 65 | }. | Hilite|
|00000dd0| 4d 65 6e 75 28 30 29 3b | 20 20 2f 2a 20 74 75 72 |Menu(0);| /* tur|
|00000de0| 6e 20 6f 66 66 20 68 69 | 67 68 6c 69 67 68 74 69 |n off hi|ghlighti|
|00000df0| 6e 67 20 2a 2f 0d 7d 0d | 0d 2f 2a 20 55 73 65 20 |ng */.}.|./* Use |
|00000e00| 53 46 47 65 74 46 69 6c | 65 20 74 6f 20 67 65 74 |SFGetFil|e to get|
|00000e10| 20 66 69 6c 65 20 6e 61 | 6d 65 73 2e 20 53 54 52 | file na|mes. STR|
|00000e20| 20 23 32 35 39 20 64 65 | 74 65 72 6d 69 6e 65 73 | #259 de|termines|
|00000e30| 20 69 66 20 6f 6e 6c 79 | 20 54 45 58 54 20 6f 72 | if only| TEXT or|
|00000e40| 20 61 6c 6c 20 2a 2f 0d | 2f 2a 20 66 69 6c 65 20 | all */.|/* file |
|00000e50| 74 79 70 65 73 20 77 69 | 6c 6c 20 62 65 20 64 69 |types wi|ll be di|
|00000e60| 73 70 6c 61 79 65 64 2c | 20 73 6f 20 57 6f 72 64 |splayed,| so Word|
|00000e70| 2c 4d 61 63 57 72 69 74 | 65 2c 20 65 74 63 2e 20 |,MacWrit|e, etc. |
|00000e80| 66 69 6c 65 73 20 63 61 | 6e 20 62 65 20 62 61 74 |files ca|n be bat|
|00000e90| 63 68 65 64 2e 20 2a 2f | 0d 2f 2a 20 55 73 65 20 |ched. */|./* Use |
|00000ea0| 74 68 65 20 4d 75 6e 67 | 65 72 20 74 6f 20 63 68 |the Mung|er to ch|
|00000eb0| 65 63 6b 20 74 68 65 20 | 66 69 6c 65 20 6e 61 6d |eck the |file nam|
|00000ec0| 65 2e 20 49 66 20 69 74 | 20 65 6e 64 73 20 69 6e |e. If it| ends in|
|00000ed0| 20 27 2e 46 49 4c 45 27 | 2c 20 69 74 20 68 6f 6c | '.FILE'|, it hol|
|00000ee0| 64 73 20 61 20 2a 2f 0d | 2f 2a 20 20 4c 49 53 54 |ds a */.|/* LIST|
|00000ef0| 20 6f 66 20 66 69 6c 65 | 20 6e 61 6d 65 73 2e 20 | of file| names. |
|00000f00| 52 65 61 64 20 65 61 63 | 68 20 69 6e 20 74 75 72 |Read eac|h in tur|
|00000f10| 6e 20 61 6e 64 20 61 64 | 64 20 74 6f 20 74 68 65 |n and ad|d to the|
|00000f20| 20 66 69 6e 64 65 72 20 | 70 61 72 61 6d 65 74 65 | finder |paramete|
|00000f30| 72 73 2e 20 2a 2f 0d 2f | 2a 20 48 69 74 20 74 68 |rs. */./|* Hit th|
|00000f40| 65 20 63 61 6e 63 65 6c | 20 62 75 74 74 6f 6e 20 |e cancel| button |
|00000f50| 69 6e 20 74 68 65 20 53 | 46 20 64 69 61 6c 6f 67 |in the S|F dialog|
|00000f60| 20 74 6f 20 71 75 69 74 | 2e 20 20 20 20 20 20 20 | to quit|. |
|00000f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f80| 20 20 20 2a 2f 0d 76 6f | 69 64 20 67 65 74 46 69 | */.vo|id getFi|
|00000f90| 6c 65 73 28 29 0d 7b 0d | 50 6f 69 6e 74 20 20 20 |les().{.|Point |
|00000fa0| 20 20 20 20 77 68 65 72 | 65 3b 0d 53 46 54 79 70 | wher|e;.SFTyp|
|00000fb0| 65 4c 69 73 74 20 20 74 | 54 79 70 65 3b 0d 53 46 |eList t|Type;.SF|
|00000fc0| 52 65 70 6c 79 20 20 20 | 20 20 61 52 65 70 6c 79 |Reply | aReply|
|00000fd0| 3b 0d 41 70 70 46 69 6c | 65 20 20 20 20 20 66 50 |;.AppFil|e fP|
|00000fe0| 61 72 6d 3b 0d 48 61 6e | 64 6c 65 20 20 20 20 20 |arm;.Han|dle |
|00000ff0| 20 66 4e 61 6d 65 48 3b | 0d 73 68 6f 72 74 20 20 | fNameH;|.short |
|00001000| 20 20 20 20 20 66 4e 61 | 6d 65 4c 65 6e 2c 20 6f | fNa|meLen, o|
|00001010| 66 66 2c 20 66 5f 6e 6f | 2c 20 6e 75 6d 54 79 70 |ff, f_no|, numTyp|
|00001020| 65 73 2c 20 43 68 65 63 | 6b 53 74 72 28 29 3b 0d |es, Chec|kStr();.|
|00001030| 50 74 72 20 20 20 20 20 | 20 20 20 20 77 61 6e 74 |Ptr | want|
|00001040| 65 64 2c 20 77 61 6e 74 | 65 64 54 3b 0d 63 68 61 |ed, want|edT;.cha|
|00001050| 72 20 20 20 20 20 20 20 | 20 66 69 6c 65 5f 6e 61 |r | file_na|
|00001060| 6d 65 5b 36 34 5d 3b 0d | 0d 20 20 20 20 77 68 65 |me[64];.|. whe|
|00001070| 72 65 2e 68 20 3d 20 37 | 35 3b 20 77 68 65 72 65 |re.h = 7|5; where|
|00001080| 2e 76 20 3d 20 31 30 30 | 3b 0d 20 20 20 20 77 61 |.v = 100|;. wa|
|00001090| 6e 74 65 64 20 3d 20 22 | 2e 46 49 4c 45 22 3b 20 |nted = "|.FILE"; |
|000010a0| 77 61 6e 74 65 64 54 20 | 3d 20 27 54 45 58 54 27 |wantedT |= 'TEXT'|
|000010b0| 3b 0d 20 20 20 20 0d 20 | 20 20 20 2f 2a 20 64 65 |;. . | /* de|
|000010c0| 74 65 72 6d 69 6e 65 20 | 66 69 6c 65 20 74 79 70 |termine |file typ|
|000010d0| 65 73 20 74 6f 20 64 69 | 73 70 6c 61 79 20 2a 2f |es to di|splay */|
|000010e0| 0d 20 20 20 20 69 66 20 | 28 43 68 65 63 6b 53 74 |. if |(CheckSt|
|000010f0| 72 28 32 35 39 2c 20 77 | 61 6e 74 65 64 54 29 20 |r(259, w|antedT) |
|00001100| 3e 3d 20 30 29 0d 20 20 | 20 20 20 20 7b 20 6e 75 |>= 0). | { nu|
|00001110| 6d 54 79 70 65 73 20 3d | 20 31 3b 20 20 20 20 20 |mTypes =| 1; |
|00001120| 2f 2a 20 6a 75 73 74 20 | 54 45 58 54 20 66 69 6c |/* just |TEXT fil|
|00001130| 65 73 20 2a 2f 0d 20 20 | 20 20 20 20 20 20 74 54 |es */. | tT|
|00001140| 79 70 65 2e 66 74 79 70 | 65 5b 30 5d 20 3d 20 27 |ype.ftyp|e[0] = '|
|00001150| 54 45 58 54 27 3b 0d 20 | 20 20 20 20 20 7d 0d 20 |TEXT';. | }. |
|00001160| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 7b 20 | else.| { |
|00001170| 6e 75 6d 54 79 70 65 73 | 20 3d 20 2d 31 3b 20 20 |numTypes| = -1; |
|00001180| 20 20 2f 2a 20 61 6e 79 | 20 6b 69 6e 64 20 6f 66 | /* any| kind of|
|00001190| 20 66 69 6c 65 20 2a 2f | 0d 20 20 20 20 20 20 20 | file */|. |
|000011a0| 20 74 54 79 70 65 2e 66 | 74 79 70 65 5b 30 5d 20 | tType.f|type[0] |
|000011b0| 3d 20 4e 55 4c 4c 3b 0d | 20 20 20 20 20 20 7d 0d |= NULL;.| }.|
|000011c0| 0d 20 20 20 20 2f 2a 20 | 67 65 74 20 66 69 6c 65 |. /* |get file|
|000011d0| 20 6e 61 6d 65 73 20 72 | 65 70 65 61 74 65 64 6c | names r|epeatedl|
|000011e0| 79 20 2a 2f 0d 20 20 20 | 20 77 68 69 6c 65 20 28 |y */. | while (|
|000011f0| 31 29 0d 20 20 20 20 20 | 20 7b 20 53 46 47 65 74 |1). | { SFGet|
|00001200| 46 69 6c 65 28 26 77 68 | 65 72 65 2c 20 4e 55 4c |File(&wh|ere, NUL|
|00001210| 4c 2c 20 4e 55 4c 4c 2c | 20 6e 75 6d 54 79 70 65 |L, NULL,| numType|
|00001220| 73 2c 20 26 74 54 79 70 | 65 2c 20 4e 55 4c 4c 2c |s, &tTyp|e, NULL,|
|00001230| 20 26 61 52 65 70 6c 79 | 29 3b 0d 20 20 20 20 20 | &aReply|);. |
|00001240| 20 20 20 69 66 20 28 21 | 61 52 65 70 6c 79 2e 67 | if (!|aReply.g|
|00001250| 6f 6f 64 29 20 62 72 65 | 61 6b 3b 20 20 20 20 2f |ood) bre|ak; /|
|00001260| 2a 20 68 69 74 20 63 61 | 6e 63 65 6c 20 74 6f 20 |* hit ca|ncel to |
|00001270| 73 74 6f 70 20 62 61 74 | 63 68 69 6e 67 20 2a 2f |stop bat|ching */|
|00001280| 0d 20 20 20 20 20 20 20 | 20 2f 2a 20 73 65 65 20 |. | /* see |
|00001290| 69 66 20 6e 61 6d 65 20 | 65 6e 64 20 69 6e 20 27 |if name |end in '|
|000012a0| 2e 46 49 4c 45 53 27 20 | 2d 20 69 66 20 73 6f 2c |.FILES' |- if so,|
|000012b0| 20 69 74 27 73 20 61 20 | 22 62 61 74 63 68 22 20 | it's a |"batch" |
|000012c0| 66 69 6c 65 20 2a 2f 0d | 20 20 20 20 20 20 20 20 |file */.| |
|000012d0| 66 4e 61 6d 65 4c 65 6e | 20 3d 20 61 52 65 70 6c |fNameLen| = aRepl|
|000012e0| 79 2e 4e 61 6d 65 6c 65 | 6e 67 74 68 3b 0d 20 20 |y.Namele|ngth;. |
|000012f0| 20 20 20 20 20 20 66 4e | 61 6d 65 48 20 3d 20 4e | fN|ameH = N|
|00001300| 65 77 48 61 6e 64 6c 65 | 28 66 4e 61 6d 65 4c 65 |ewHandle|(fNameLe|
|00001310| 6e 2b 31 29 3b 0d 20 20 | 20 20 20 20 20 20 42 6c |n+1);. | Bl|
|00001320| 6f 63 6b 4d 6f 76 65 28 | 26 61 52 65 70 6c 79 2e |ockMove(|&aReply.|
|00001330| 4e 61 6d 65 6c 65 6e 67 | 74 68 2c 20 2a 66 4e 61 |Nameleng|th, *fNa|
|00001340| 6d 65 48 2c 20 66 4e 61 | 6d 65 4c 65 6e 2b 31 29 |meH, fNa|meLen+1)|
|00001350| 3b 0d 20 20 20 20 20 20 | 20 20 50 54 6f 43 53 74 |;. | PToCSt|
|00001360| 72 28 2a 66 4e 61 6d 65 | 48 29 3b 0d 20 20 20 20 |r(*fName|H);. |
|00001370| 20 20 20 20 73 65 74 75 | 70 70 65 72 63 61 73 65 | setu|ppercase|
|00001380| 28 2a 66 4e 61 6d 65 48 | 29 3b 0d 20 20 20 20 20 |(*fNameH|);. |
|00001390| 20 20 20 6f 66 66 20 3d | 20 4d 75 6e 67 65 72 28 | off =| Munger(|
|000013a0| 66 4e 61 6d 65 48 2c 20 | 30 2c 20 77 61 6e 74 65 |fNameH, |0, wante|
|000013b0| 64 2c 20 35 2c 20 30 2c | 20 30 29 3b 20 20 20 2f |d, 5, 0,| 0); /|
|000013c0| 2a 20 63 68 65 63 6b 20 | 74 79 70 65 20 2a 2f 0d |* check |type */.|
|000013d0| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 | |. |
|000013e0| 20 2f 2a 20 70 72 6f 63 | 65 73 73 20 73 65 6c 65 | /* proc|ess sele|
|000013f0| 63 74 65 64 20 66 69 6c | 65 20 6e 61 6d 65 20 2a |cted fil|e name *|
|00001400| 2f 0d 20 20 20 20 20 20 | 20 20 69 66 20 28 6f 66 |/. | if (of|
|00001410| 66 3e 30 29 20 20 2f 2a | 20 62 61 74 63 68 20 66 |f>0) /*| batch f|
|00001420| 69 6c 65 20 2a 2f 0d 20 | 20 20 20 20 20 20 20 20 |ile */. | |
|00001430| 20 7b 20 48 4c 6f 63 6b | 28 66 4e 61 6d 65 48 29 | { HLock|(fNameH)|
|00001440| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 4d 61 |;. | Ma|
|00001450| 63 43 56 52 65 66 4e 75 | 6d 20 3d 20 61 52 65 70 |cCVRefNu|m = aRep|
|00001460| 6c 79 2e 76 52 65 66 4e | 75 6d 3b 0d 20 20 20 20 |ly.vRefN|um;. |
|00001470| 20 20 20 20 20 20 20 20 | 66 5f 6e 6f 20 3d 20 54 | |f_no = T|
|00001480| 4b 4f 70 65 6e 28 64 69 | 73 6b 64 65 76 69 63 65 |KOpen(di|skdevice|
|00001490| 2c 20 2a 66 4e 61 6d 65 | 48 2c 20 31 29 3b 20 20 |, *fName|H, 1); |
|000014a0| 2f 2a 20 6f 70 65 6e 20 | 66 6f 72 20 72 65 61 64 |/* open |for read|
|000014b0| 20 2a 2f 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | */. | |
|000014c0| 77 68 69 6c 65 20 28 21 | 65 6f 66 28 66 5f 6e 6f |while (!|eof(f_no|
|000014d0| 29 29 20 20 20 20 2f 2a | 20 72 65 61 64 20 61 20 |)) /*| read a |
|000014e0| 6e 61 6d 65 2c 20 61 64 | 64 20 74 6f 20 62 61 74 |name, ad|d to bat|
|000014f0| 63 68 20 2a 2f 0d 20 20 | 20 20 20 20 20 20 20 20 |ch */. | |
|00001500| 20 20 20 20 7b 20 72 65 | 61 64 6c 69 6e 65 28 66 | { re|adline(f|
|00001510| 5f 6e 6f 2c 20 66 69 6c | 65 5f 6e 61 6d 65 2c 20 |_no, fil|e_name, |
|00001520| 36 34 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |64);. | |
|00001530| 20 20 20 20 20 43 74 6f | 50 53 74 72 28 66 69 6c | Cto|PStr(fil|
|00001540| 65 5f 6e 61 6d 65 29 3b | 20 20 20 20 20 2f 2a 20 |e_name);| /* |
|00001550| 73 65 74 20 75 70 20 66 | 6f 72 20 4d 61 63 20 2a |set up f|or Mac *|
|00001560| 2f 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |/. | |
|00001570| 20 20 66 50 61 72 6d 2e | 76 52 65 66 4e 75 6d 20 | fParm.|vRefNum |
|00001580| 3d 20 4d 61 63 43 56 52 | 65 66 4e 75 6d 3b 0d 20 |= MacCVR|efNum;. |
|00001590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 66 | | f|
|000015a0| 50 61 72 6d 2e 66 54 79 | 70 65 20 3d 20 61 52 65 |Parm.fTy|pe = aRe|
|000015b0| 70 6c 79 2e 66 74 79 70 | 65 3b 0d 20 20 20 20 20 |ply.ftyp|e;. |
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 20 66 50 61 72 6d | | fParm|
|000015d0| 2e 76 65 72 73 4e 75 6d | 20 3d 20 30 3b 0d 20 20 |.versNum| = 0;. |
|000015e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 66 50 | | fP|
|000015f0| 61 72 6d 2e 66 4e 61 6d | 65 2e 63 6f 75 6e 74 20 |arm.fNam|e.count |
|00001600| 3d 20 66 69 6c 65 5f 6e | 61 6d 65 5b 30 5d 3b 0d |= file_n|ame[0];.|
|00001610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001620| 42 6c 6f 63 6b 4d 6f 76 | 65 28 26 66 69 6c 65 5f |BlockMov|e(&file_|
|00001630| 6e 61 6d 65 5b 31 5d 2c | 20 26 66 50 61 72 6d 2e |name[1],| &fParm.|
|00001640| 66 4e 61 6d 65 2e 73 5b | 30 5d 2c 20 66 69 6c 65 |fName.s[|0], file|
|00001650| 5f 6e 61 6d 65 5b 30 5d | 29 3b 0d 20 20 20 20 20 |_name[0]|);. |
|00001660| 20 20 20 20 20 20 20 20 | 20 20 20 41 64 64 41 70 | | AddAp|
|00001670| 70 46 69 6c 65 28 26 66 | 50 61 72 6d 29 3b 20 20 |pFile(&f|Parm); |
|00001680| 20 20 20 2f 2a 20 61 64 | 64 20 74 6f 20 6c 69 73 | /* ad|d to lis|
|00001690| 74 20 2a 2f 0d 20 20 20 | 20 20 20 20 20 20 20 20 |t */. | |
|000016a0| 20 20 20 7d 0d 20 20 20 | 20 20 20 20 20 20 20 20 | }. | |
|000016b0| 20 54 4b 43 6c 6f 73 65 | 28 66 5f 6e 6f 29 3b 20 | TKClose|(f_no); |
|000016c0| 20 20 20 20 20 20 20 20 | 20 2f 2a 20 63 6c 65 61 | | /* clea|
|000016d0| 6e 20 75 70 20 2a 2f 0d | 20 20 20 20 20 20 20 20 |n up */.| |
|000016e0| 20 20 20 20 48 55 6e 6c | 6f 63 6b 28 66 4e 61 6d | HUnl|ock(fNam|
|000016f0| 65 48 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 7d |eH);. | }|
|00001700| 0d 20 20 20 20 20 20 20 | 20 65 6c 73 65 20 20 20 |. | else |
|00001710| 20 2f 2a 20 6e 6f 72 6d | 61 6c 20 6e 61 6d 65 20 | /* norm|al name |
|00001720| 2a 2f 0d 20 20 20 20 20 | 20 20 20 20 20 7b 20 66 |*/. | { f|
|00001730| 50 61 72 6d 2e 76 52 65 | 66 4e 75 6d 20 3d 20 61 |Parm.vRe|fNum = a|
|00001740| 52 65 70 6c 79 2e 76 52 | 65 66 4e 75 6d 3b 0d 20 |Reply.vR|efNum;. |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 20 66 50 61 72 6d | | fParm|
|00001760| 2e 66 54 79 70 65 20 3d | 20 61 52 65 70 6c 79 2e |.fType =| aReply.|
|00001770| 66 74 79 70 65 3b 0d 20 | 20 20 20 20 20 20 20 20 |ftype;. | |
|00001780| 20 20 20 66 50 61 72 6d | 2e 76 65 72 73 4e 75 6d | fParm|.versNum|
|00001790| 20 3d 20 30 3b 0d 20 20 | 20 20 20 20 20 20 20 20 | = 0;. | |
|000017a0| 20 20 66 50 61 72 6d 2e | 66 4e 61 6d 65 2e 63 6f | fParm.|fName.co|
|000017b0| 75 6e 74 20 3d 20 61 52 | 65 70 6c 79 2e 4e 61 6d |unt = aR|eply.Nam|
|000017c0| 65 6c 65 6e 67 74 68 3b | 20 20 2f 2a 20 63 6f 70 |elength;| /* cop|
|000017d0| 79 20 6e 61 6d 65 20 2a | 2f 0d 20 20 20 20 20 20 |y name *|/. |
|000017e0| 20 20 20 20 20 20 42 6c | 6f 63 6b 4d 6f 76 65 28 | Bl|ockMove(|
|000017f0| 26 61 52 65 70 6c 79 2e | 4e 61 6d 65 5b 30 5d 2c |&aReply.|Name[0],|
|00001800| 20 26 66 50 61 72 6d 2e | 66 4e 61 6d 65 2e 73 5b | &fParm.|fName.s[|
|00001810| 30 5d 2c 20 61 52 65 70 | 6c 79 2e 4e 61 6d 65 6c |0], aRep|ly.Namel|
|00001820| 65 6e 67 74 68 29 3b 0d | 20 20 20 20 20 20 20 20 |ength);.| |
|00001830| 20 20 20 20 41 64 64 41 | 70 70 46 69 6c 65 28 26 | AddA|ppFile(&|
|00001840| 66 50 61 72 6d 29 3b 20 | 20 20 20 20 2f 2a 20 61 |fParm); | /* a|
|00001850| 64 64 20 74 6f 20 6c 69 | 73 74 20 2a 2f 0d 20 20 |dd to li|st */. |
|00001860| 20 20 20 20 20 20 20 20 | 7d 0d 20 20 20 20 20 20 | |}. |
|00001870| 20 20 44 69 73 70 6f 73 | 48 61 6e 64 6c 65 28 66 | Dispos|Handle(f|
|00001880| 4e 61 6d 65 48 29 3b 0d | 20 20 20 20 20 20 7d 0d |NameH);.| }.|
|00001890| 7d 0d 0d 2f 2a 20 44 65 | 63 69 64 65 20 77 68 65 |}../* De|cide whe|
|000018a0| 74 68 65 72 20 74 68 65 | 20 61 70 70 6c 69 63 61 |ther the| applica|
|000018b0| 74 69 6f 6e 20 73 68 6f | 75 6c 64 20 70 72 69 6e |tion sho|uld prin|
|000018c0| 74 20 6f 72 20 6a 75 73 | 74 20 6f 70 65 6e 20 74 |t or jus|t open t|
|000018d0| 68 65 20 70 69 63 6b 65 | 64 20 66 69 6c 65 73 20 |he picke|d files |
|000018e0| 2a 2f 0d 2f 2a 20 44 65 | 63 69 64 65 20 77 68 65 |*/./* De|cide whe|
|000018f0| 74 68 65 72 20 74 6f 20 | 75 73 65 20 74 68 65 20 |ther to |use the |
|00001900| 22 68 61 72 64 77 69 72 | 65 64 22 20 61 70 70 6c |"hardwir|ed" appl|
|00001910| 69 63 61 74 69 6f 6e 20 | 6e 61 6d 65 20 6f 72 20 |ication |name or |
|00001920| 75 73 65 20 53 46 47 65 | 74 46 69 6c 65 20 20 20 |use SFGe|tFile |
|00001930| 2a 2f 0d 2f 2a 20 20 74 | 6f 20 73 65 6c 65 63 74 |*/./* t|o select|
|00001940| 20 74 68 65 20 6e 61 6d | 65 20 61 6e 64 20 73 65 | the nam|e and se|
|00001950| 74 20 74 68 65 20 64 65 | 66 61 75 6c 74 20 76 6f |t the de|fault vo|
|00001960| 6c 75 6d 65 2e 20 20 20 | 20 20 20 20 20 20 20 20 |lume. | |
|00001970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001980| 2a 2f 0d 2f 2a 20 4c 61 | 75 6e 63 68 20 74 68 65 |*/./* La|unch the|
|00001990| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 21 21 20 20 | applica|tion!! |
|000019a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000019b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000019c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000019d0| 2a 2f 0d 76 6f 69 64 20 | 4c 61 75 6e 63 68 49 74 |*/.void |LaunchIt|
|000019e0| 28 29 0d 7b 0d 50 6f 69 | 6e 74 20 20 20 20 20 20 |().{.Poi|nt |
|000019f0| 20 77 68 65 72 65 3b 0d | 53 46 54 79 70 65 4c 69 | where;.|SFTypeLi|
|00001a00| 73 74 20 20 74 54 79 70 | 65 3b 0d 53 46 52 65 70 |st tTyp|e;.SFRep|
|00001a10| 6c 79 20 20 20 20 20 61 | 52 65 70 6c 79 3b 0d 53 |ly a|Reply;.S|
|00001a20| 74 72 32 35 35 20 20 20 | 20 20 20 74 61 72 67 65 |tr255 | targe|
|00001a30| 74 3b 0d 48 61 6e 64 6c | 65 20 20 20 20 20 20 6e |t;.Handl|e n|
|00001a40| 61 6d 65 48 2c 63 6f 6e | 66 69 67 48 2c 20 6d 73 |ameH,con|figH, ms|
|00001a50| 67 48 3b 0d 50 74 72 20 | 20 20 20 20 20 20 20 20 |gH;.Ptr | |
|00001a60| 77 61 6e 74 65 64 41 2c | 20 77 61 6e 74 65 64 4d |wantedA,| wantedM|
|00001a70| 73 67 3b 0d 73 68 6f 72 | 74 20 20 20 20 20 20 20 |sg;.shor|t |
|00001a80| 6f 66 66 2c 20 43 68 65 | 63 6b 53 74 72 28 29 3b |off, Che|ckStr();|
|00001a90| 0d 56 6f 6c 75 6d 65 50 | 61 72 61 6d 20 76 6f 6c |.VolumeP|aram vol|
|00001aa0| 50 42 3b 0d 0d 20 20 20 | 20 77 68 65 72 65 2e 68 |PB;.. | where.h|
|00001ab0| 20 3d 20 37 35 3b 20 77 | 68 65 72 65 2e 76 20 3d | = 75; w|here.v =|
|00001ac0| 20 31 30 30 3b 0d 20 20 | 20 20 74 54 79 70 65 2e | 100;. | tType.|
|00001ad0| 66 74 79 70 65 5b 30 5d | 20 3d 20 27 41 50 50 4c |ftype[0]| = 'APPL|
|00001ae0| 27 3b 0d 20 20 20 20 77 | 61 6e 74 65 64 41 20 3d |';. w|antedA =|
|00001af0| 20 22 41 53 4b 22 3b 20 | 77 61 6e 74 65 64 4d 73 | "ASK"; |wantedMs|
|00001b00| 67 20 3d 20 22 50 52 49 | 4e 54 22 3b 0d 20 20 20 |g = "PRI|NT";. |
|00001b10| 20 0d 20 20 20 20 2f 2a | 20 64 65 74 65 72 6d 69 | . /*| determi|
|00001b20| 6e 65 20 77 68 65 74 68 | 65 72 20 74 6f 20 70 72 |ne wheth|er to pr|
|00001b30| 69 6e 74 20 6f 72 20 6f | 70 65 6e 20 62 61 74 63 |int or o|pen batc|
|00001b40| 68 65 64 20 66 69 6c 65 | 73 20 2a 2f 0d 20 20 20 |hed file|s */. |
|00001b50| 20 69 66 20 28 43 68 65 | 63 6b 53 74 72 28 32 35 | if (Che|ckStr(25|
|00001b60| 38 2c 20 77 61 6e 74 65 | 64 4d 73 67 29 20 3e 3d |8, wante|dMsg) >=|
|00001b70| 20 30 29 0d 20 20 20 20 | 20 20 53 65 74 41 70 70 | 0). | SetApp|
|00001b80| 4d 65 73 73 61 67 65 28 | 31 29 3b 20 20 20 20 20 |Message(|1); |
|00001b90| 2f 2a 20 27 70 72 69 6e | 74 27 20 2a 2f 0d 20 20 |/* 'prin|t' */. |
|00001ba0| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 53 65 74 | else. | Set|
|00001bb0| 41 70 70 4d 65 73 73 61 | 67 65 28 30 29 3b 20 20 |AppMessa|ge(0); |
|00001bc0| 20 20 20 2f 2a 20 27 6f | 70 65 6e 27 20 2a 2f 0d | /* 'o|pen' */.|
|00001bd0| 20 20 20 20 0d 20 20 20 | 20 2f 2a 20 64 65 74 65 | . | /* dete|
|00001be0| 72 6d 69 6e 65 20 61 70 | 70 6c 69 63 61 74 69 6f |rmine ap|plicatio|
|00001bf0| 6e 20 74 6f 20 6c 61 75 | 6e 63 68 20 2a 2f 0d 20 |n to lau|nch */. |
|00001c00| 20 20 20 69 66 20 28 43 | 68 65 63 6b 53 74 72 28 | if (C|heckStr(|
|00001c10| 32 35 37 2c 20 77 61 6e | 74 65 64 41 29 20 3e 3d |257, wan|tedA) >=|
|00001c20| 20 30 29 20 20 20 2f 2a | 20 75 73 65 20 53 46 47 | 0) /*| use SFG|
|00001c30| 65 74 46 69 6c 65 20 2a | 2f 0d 20 20 20 20 20 20 |etFile *|/. |
|00001c40| 7b 20 53 46 47 65 74 46 | 69 6c 65 28 26 77 68 65 |{ SFGetF|ile(&whe|
|00001c50| 72 65 2c 20 4e 55 4c 4c | 2c 20 4e 55 4c 4c 2c 20 |re, NULL|, NULL, |
|00001c60| 31 2c 20 26 74 54 79 70 | 65 2c 20 4e 55 4c 4c 2c |1, &tTyp|e, NULL,|
|00001c70| 20 26 61 52 65 70 6c 79 | 29 3b 0d 20 20 20 20 20 | &aReply|);. |
|00001c80| 20 20 20 69 66 20 28 21 | 61 52 65 70 6c 79 2e 67 | if (!|aReply.g|
|00001c90| 6f 6f 64 29 20 72 65 74 | 75 72 6e 3b 20 20 20 20 |ood) ret|urn; |
|00001ca0| 2f 2a 20 68 69 74 20 63 | 61 6e 63 65 6c 20 74 6f |/* hit c|ancel to|
|00001cb0| 20 61 76 6f 69 64 20 6c | 61 75 6e 63 68 20 2a 2f | avoid l|aunch */|
|00001cc0| 0d 20 20 20 20 20 20 20 | 20 2f 2a 20 53 45 54 20 |. | /* SET |
|00001cd0| 56 4f 4c 20 48 45 52 45 | 21 21 20 2a 2f 0d 20 20 |VOL HERE|!! */. |
|00001ce0| 20 20 20 20 20 20 76 6f | 6c 50 42 2e 69 6f 43 6f | vo|lPB.ioCo|
|00001cf0| 6d 70 6c 65 74 69 6f 6e | 20 3d 20 4e 55 4c 4c 3b |mpletion| = NULL;|
|00001d00| 0d 20 20 20 20 20 20 20 | 20 76 6f 6c 50 42 2e 69 |. | volPB.i|
|00001d10| 6f 4e 61 6d 65 50 74 72 | 20 3d 20 4e 55 4c 4c 3b |oNamePtr| = NULL;|
|00001d20| 0d 20 20 20 20 20 20 20 | 20 76 6f 6c 50 42 2e 69 |. | volPB.i|
|00001d30| 6f 56 52 65 66 4e 75 6d | 20 3d 20 61 52 65 70 6c |oVRefNum| = aRepl|
|00001d40| 79 2e 76 52 65 66 4e 75 | 6d 3b 0d 20 20 20 20 20 |y.vRefNu|m;. |
|00001d50| 20 20 20 50 42 53 65 74 | 56 6f 6c 28 26 76 6f 6c | PBSet|Vol(&vol|
|00001d60| 50 42 2c 20 30 29 3b 0d | 20 20 20 20 20 20 20 20 |PB, 0);.| |
|00001d70| 74 61 72 67 65 74 2e 63 | 6f 75 6e 74 20 3d 20 61 |target.c|ount = a|
|00001d80| 52 65 70 6c 79 2e 4e 61 | 6d 65 6c 65 6e 67 74 68 |Reply.Na|melength|
|00001d90| 3b 0d 20 20 20 20 20 20 | 20 20 42 6c 6f 63 6b 4d |;. | BlockM|
|00001da0| 6f 76 65 28 26 61 52 65 | 70 6c 79 2e 4e 61 6d 65 |ove(&aRe|ply.Name|
|00001db0| 5b 30 5d 2c 20 26 74 61 | 72 67 65 74 2e 73 5b 30 |[0], &ta|rget.s[0|
|00001dc0| 5d 2c 20 74 61 72 67 65 | 74 2e 63 6f 75 6e 74 29 |], targe|t.count)|
|00001dd0| 3b 0d 20 20 20 20 20 20 | 7d 0d 20 20 20 20 65 6c |;. |}. el|
|00001de0| 73 65 20 20 2f 2a 20 75 | 73 65 20 22 68 61 72 64 |se /* u|se "hard|
|00001df0| 77 69 72 65 64 22 20 61 | 70 70 6c 69 63 61 74 69 |wired" a|pplicati|
|00001e00| 6f 6e 20 6e 61 6d 65 20 | 2a 2f 0d 20 20 20 20 20 |on name |*/. |
|00001e10| 20 7b 20 6e 61 6d 65 48 | 20 3d 20 28 48 61 6e 64 | { nameH| = (Hand|
|00001e20| 6c 65 29 20 47 65 74 52 | 65 73 6f 75 72 63 65 28 |le) GetR|esource(|
|00001e30| 27 53 54 52 20 27 2c 20 | 32 35 36 29 3b 0d 20 20 |'STR ', |256);. |
|00001e40| 20 20 20 20 20 20 44 65 | 74 61 63 68 52 65 73 6f | De|tachReso|
|00001e50| 75 72 63 65 28 6e 61 6d | 65 48 29 3b 20 20 20 20 |urce(nam|eH); |
|00001e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e70| 20 20 2f 2a 20 6b 65 65 | 70 20 72 65 73 6f 75 72 | /* kee|p resour|
|00001e80| 63 65 20 6d 61 6e 61 67 | 65 72 20 68 61 70 70 79 |ce manag|er happy|
|00001e90| 20 2a 2f 0d 20 20 20 20 | 20 20 20 20 74 61 72 67 | */. | targ|
|00001ea0| 65 74 2e 63 6f 75 6e 74 | 20 3d 20 2a 2a 6e 61 6d |et.count| = **nam|
|00001eb0| 65 48 3b 0d 20 20 20 20 | 20 20 20 20 42 6c 6f 63 |eH;. | Bloc|
|00001ec0| 6b 4d 6f 76 65 28 2a 6e | 61 6d 65 48 2b 31 2c 20 |kMove(*n|ameH+1, |
|00001ed0| 26 74 61 72 67 65 74 2e | 73 5b 30 5d 2c 20 74 61 |&target.|s[0], ta|
|00001ee0| 72 67 65 74 2e 63 6f 75 | 6e 74 29 3b 0d 20 20 20 |rget.cou|nt);. |
|00001ef0| 20 20 20 7d 0d 20 20 20 | 20 20 20 0d 20 20 20 20 | }. | . |
|00001f00| 2f 2a 20 73 65 74 20 75 | 70 20 70 61 72 61 6d 73 |/* set u|p params|
|00001f10| 20 61 6e 64 20 6c 61 75 | 6e 63 68 20 61 70 70 6c | and lau|nch appl|
|00001f20| 69 63 61 74 69 6f 6e 20 | 2a 2f 0d 20 20 20 20 6c |ication |*/. l|
|00001f30| 61 75 6e 63 68 50 61 72 | 6d 73 2e 70 67 6d 50 74 |aunchPar|ms.pgmPt|
|00001f40| 72 20 3d 20 26 74 61 72 | 67 65 74 2e 63 6f 75 6e |r = &tar|get.coun|
|00001f50| 74 3b 0d 20 20 20 20 6c | 61 75 6e 63 68 50 61 72 |t;. l|aunchPar|
|00001f60| 6d 73 2e 64 75 6d 6d 79 | 20 3d 20 30 3b 20 20 20 |ms.dummy| = 0; |
|00001f70| 20 20 20 20 20 20 20 2f | 2a 20 6e 6f 72 6d 61 6c | /|* normal|
|00001f80| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 20 2a | configu|ration *|
|00001f90| 2f 0d 20 20 20 20 4c 61 | 75 6e 63 68 50 67 6d 28 |/. La|unchPgm(|
|00001fa0| 26 6c 61 75 6e 63 68 50 | 61 72 6d 73 2e 70 67 6d |&launchP|arms.pgm|
|00001fb0| 50 74 72 29 3b 0d 7d 0d | 0d 2f 2a 20 2d 2d 2d 20 |Ptr);.}.|./* --- |
|00001fc0| 43 68 65 63 6b 20 61 20 | 53 54 52 20 72 65 73 6f |Check a |STR reso|
|00001fd0| 75 72 63 65 20 66 6f 72 | 20 61 20 67 69 76 65 6e |urce for| a given|
|00001fe0| 20 73 74 72 69 6e 67 20 | 28 43 41 53 45 20 49 4e | string |(CASE IN|
|00001ff0| 53 45 4e 53 49 54 49 56 | 45 29 20 2d 2d 2d 20 2a |SENSITIV|E) --- *|
|00002000| 2f 0d 2f 2a 20 20 20 20 | 20 20 72 65 74 75 72 6e |/./* | return|
|00002010| 73 20 6e 65 67 61 74 69 | 76 65 20 23 20 69 66 20 |s negati|ve # if |
|00002020| 4e 4f 54 20 66 6f 75 6e | 64 2c 20 6e 6f 6e 2d 6e |NOT foun|d, non-n|
|00002030| 65 67 61 74 69 76 65 20 | 69 66 20 46 4f 55 4e 44 |egative |if FOUND|
|00002040| 20 20 20 20 20 20 20 20 | 2a 2f 0d 73 68 6f 72 74 | |*/.short|
|00002050| 20 43 68 65 63 6b 53 74 | 72 28 53 74 72 4e 75 6d | CheckSt|r(StrNum|
|00002060| 2c 20 77 61 6e 74 65 64 | 29 0d 73 68 6f 72 74 20 |, wanted|).short |
|00002070| 20 20 53 74 72 4e 75 6d | 3b 20 20 20 20 20 2f 2a | StrNum|; /*|
|00002080| 20 53 54 52 20 23 20 74 | 6f 20 63 68 65 63 6b 20 | STR # t|o check |
|00002090| 2a 2f 0d 50 74 72 20 20 | 20 20 20 77 61 6e 74 65 |*/.Ptr | wante|
|000020a0| 64 3b 20 20 20 20 20 2f | 2a 20 70 74 72 20 74 6f |d; /|* ptr to|
|000020b0| 20 73 74 72 69 6e 67 20 | 74 6f 20 63 68 65 63 6b | string |to check|
|000020c0| 20 66 6f 72 20 2a 2f 0d | 7b 0d 48 61 6e 64 6c 65 | for */.|{.Handle|
|000020d0| 20 20 72 65 73 48 3b 0d | 73 68 6f 72 74 20 20 20 | resH;.|short |
|000020e0| 73 74 72 4c 65 6e 3b 0d | 0d 20 20 20 20 72 65 73 |strLen;.|. res|
|000020f0| 48 20 3d 20 28 48 61 6e | 64 6c 65 29 20 47 65 74 |H = (Han|dle) Get|
|00002100| 52 65 73 6f 75 72 63 65 | 28 27 53 54 52 20 27 2c |Resource|('STR ',|
|00002110| 20 53 74 72 4e 75 6d 29 | 3b 0d 20 20 20 20 73 74 | StrNum)|;. st|
|00002120| 72 4c 65 6e 20 3d 20 6c | 65 6e 67 74 68 28 77 61 |rLen = l|ength(wa|
|00002130| 6e 74 65 64 29 3b 0d 20 | 20 20 20 50 54 6f 43 53 |nted);. | PToCS|
|00002140| 74 72 28 2a 72 65 73 48 | 29 3b 20 20 20 20 20 20 |tr(*resH|); |
|00002150| 2f 2a 20 52 4d 61 6b 65 | 72 20 62 75 69 6c 64 73 |/* RMake|r builds|
|00002160| 20 50 61 73 63 61 6c 20 | 73 74 72 69 6e 67 73 20 | Pascal |strings |
|00002170| 2d 20 6e 65 65 64 20 43 | 20 73 74 79 6c 65 20 2a |- need C| style *|
|00002180| 2f 0d 20 20 20 20 73 65 | 74 75 70 70 65 72 63 61 |/. se|tupperca|
|00002190| 73 65 28 2a 72 65 73 48 | 29 3b 20 2f 2a 20 66 6f |se(*resH|); /* fo|
|000021a0| 6c 64 73 20 61 6c 6c 20 | 63 68 61 72 73 20 74 6f |lds all |chars to|
|000021b0| 20 75 70 70 65 72 20 63 | 61 73 65 20 69 6e 20 43 | upper c|ase in C|
|000021c0| 20 73 74 72 69 6e 67 20 | 2a 2f 0d 20 20 20 20 72 | string |*/. r|
|000021d0| 65 74 75 72 6e 20 4d 75 | 6e 67 65 72 28 72 65 73 |eturn Mu|nger(res|
|000021e0| 48 2c 20 30 2c 20 77 61 | 6e 74 65 64 2c 20 73 74 |H, 0, wa|nted, st|
|000021f0| 72 4c 65 6e 2c 20 30 2c | 20 30 29 3b 0d 7d 0d 0d |rLen, 0,| 0);.}..|
|00002200| 2f 2a 20 2d 2d 2d 20 4c | 61 75 6e 63 68 20 47 6c |/* --- L|aunch Gl|
|00002210| 75 65 20 2d 2d 2d 20 2a | 2f 0d 76 6f 69 64 20 4c |ue --- *|/.void L|
|00002220| 61 75 6e 63 68 50 67 6d | 28 70 61 72 6d 73 29 0d |aunchPgm|(parms).|
|00002230| 63 68 61 72 20 2a 70 61 | 72 6d 73 3b 20 20 20 20 |char *pa|rms; |
|00002240| 2f 2a 20 66 61 6b 65 20 | 6f 75 74 20 63 6f 6d 70 |/* fake |out comp|
|00002250| 69 6c 65 72 20 2a 2f 0d | 7b 0d 23 61 73 6d 0d 20 |iler */.|{.#asm. |
|00002260| 20 20 20 4d 4f 56 45 2e | 4c 20 20 44 30 2c 41 30 | MOVE.|L D0,A0|
|00002270| 0d 20 20 20 20 44 43 2e | 57 20 20 20 20 24 41 39 |. DC.|W $A9|
|00002280| 46 32 20 20 20 20 20 20 | 20 3b 5f 4c 61 75 6e 63 |F2 | ;_Launc|
|00002290| 68 0d 23 65 6e 64 61 73 | 6d 0d 7d 0d 0d 2f 2a 20 |h.#endas|m.}../* |
|000022a0| 2d 2d 2d 20 53 46 47 65 | 74 46 69 6c 65 20 67 6c |--- SFGe|tFile gl|
|000022b0| 75 65 20 2d 2d 2d 20 2a | 2f 0d 53 46 47 65 74 46 |ue --- *|/.SFGetF|
|000022c0| 69 6c 65 28 77 68 65 72 | 65 2c 20 70 72 6f 6d 70 |ile(wher|e, promp|
|000022d0| 74 2c 20 66 69 6c 65 46 | 69 6c 74 65 72 2c 20 6e |t, fileF|ilter, n|
|000022e0| 75 6d 54 79 70 65 73 2c | 20 74 79 70 65 4c 69 73 |umTypes,| typeLis|
|000022f0| 74 2c 20 64 6c 67 48 6f | 6f 6b 2c 20 72 65 70 6c |t, dlgHo|ok, repl|
|00002300| 79 29 0d 50 6f 69 6e 74 | 20 2a 77 68 65 72 65 3b |y).Point| *where;|
|00002310| 09 09 09 2f 2f 20 28 44 | 30 29 0d 73 74 72 75 63 |...// (D|0).struc|
|00002320| 74 20 50 53 74 72 20 2a | 70 72 6f 6d 70 74 3b 09 |t PStr *|prompt;.|
|00002330| 09 2f 2f 28 44 31 29 0d | 69 6e 74 20 28 2a 66 69 |.//(D1).|int (*fi|
|00002340| 6c 65 46 69 6c 74 65 72 | 29 28 29 3b 09 09 2f 2f |leFilter|)();..//|
|00002350| 28 44 32 29 0d 73 68 6f | 72 74 20 6e 75 6d 54 79 |(D2).sho|rt numTy|
|00002360| 70 65 73 3b 09 09 2f 2f | 28 44 33 29 0d 53 46 54 |pes;..//|(D3).SFT|
|00002370| 79 70 65 4c 69 73 74 20 | 2a 74 79 70 65 4c 69 73 |ypeList |*typeLis|
|00002380| 74 3b 09 09 2f 2f 28 44 | 34 29 0d 69 6e 74 20 28 |t;..//(D|4).int (|
|00002390| 2a 64 6c 67 48 6f 6f 6b | 29 28 29 3b 09 09 2f 2f |*dlgHook|)();..//|
|000023a0| 28 44 35 29 0d 53 46 52 | 65 70 6c 79 20 2a 72 65 |(D5).SFR|eply *re|
|000023b0| 70 6c 79 3b 09 09 2f 2f | 28 44 36 29 0d 7b 0d 23 |ply;..//|(D6).{.#|
|000023c0| 61 73 6d 0d 20 49 6e 63 | 6c 75 64 65 20 4d 61 63 |asm. Inc|lude Mac|
|000023d0| 54 72 61 70 73 2e 44 0d | 09 4d 4f 56 45 2e 4c 09 |Traps.D.|.MOVE.L.|
|000023e0| 44 30 2c 41 30 0d 09 4d | 4f 56 45 2e 4c 09 28 41 |D0,A0..M|OVE.L.(A|
|000023f0| 30 29 2c 2d 28 53 50 29 | 09 09 3b 20 57 48 45 52 |0),-(SP)|..; WHER|
|00002400| 45 0d 09 4d 4f 56 45 2e | 4c 09 44 31 2c 2d 28 53 |E..MOVE.|L.D1,-(S|
|00002410| 50 29 09 09 3b 20 50 52 | 4f 4d 50 54 0d 09 4d 4f |P)..; PR|OMPT..MO|
|00002420| 56 45 2e 4c 09 44 32 2c | 2d 28 53 50 29 09 09 3b |VE.L.D2,|-(SP)..;|
|00002430| 20 46 49 4c 54 45 52 20 | 50 52 4f 43 0d 09 4d 4f | FILTER |PROC..MO|
|00002440| 56 45 2e 57 09 44 33 2c | 2d 28 53 50 29 09 09 3b |VE.W.D3,|-(SP)..;|
|00002450| 20 6e 75 6d 54 79 70 65 | 73 0d 09 4d 4f 56 45 2e | numType|s..MOVE.|
|00002460| 4c 09 44 34 2c 2d 28 53 | 50 29 09 09 3b 20 74 79 |L.D4,-(S|P)..; ty|
|00002470| 70 65 4c 69 73 74 0d 09 | 4d 4f 56 45 2e 4c 09 44 |peList..|MOVE.L.D|
|00002480| 35 2c 2d 28 53 50 29 09 | 09 3b 20 64 6c 67 48 6f |5,-(SP).|.; dlgHo|
|00002490| 6f 6b 0d 09 4d 4f 56 45 | 2e 4c 09 44 36 2c 2d 28 |ok..MOVE|.L.D6,-(|
|000024a0| 53 50 29 09 09 3b 20 72 | 65 70 6c 79 0d 09 4d 4f |SP)..; r|eply..MO|
|000024b0| 56 45 09 23 32 2c 2d 28 | 53 50 29 09 09 3b 20 72 |VE.#2,-(|SP)..; r|
|000024c0| 6f 75 74 69 6e 65 20 73 | 65 6c 65 63 74 6f 72 0d |outine s|elector.|
|000024d0| 09 5f 50 61 63 6b 33 20 | 20 20 20 20 20 20 20 20 |._Pack3 | |
|000024e0| 3b 44 43 2e 57 20 24 41 | 39 45 41 20 20 20 20 20 |;DC.W $A|9EA |
|000024f0| 3b 20 5f 50 61 63 6b 33 | 0d 09 52 54 53 0d 23 65 |; _Pack3|..RTS.#e|
|00002500| 6e 64 61 73 6d 0d 7d 0d | 0d 0d 0d 00 00 00 00 00 |ndasm.}.|........|
|00002510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 00 00 01 00 00 00 01 91 | 00 00 00 91 00 00 00 5a |........|.......Z|
|00002590| 0c 69 00 01 00 12 67 06 | 32 3c 00 8c 4e 75 72 4a |.i....g.|2<..NurJ|
|000025a0| 4e 75 2f 38 02 52 4e 75 | 61 f8 40 e7 00 7c 03 00 |Nu/8.RNu|a.@..|..|
|000025b0| 0b 46 72 6f 6e 74 20 4d | 61 6e 2e 63 02 00 00 00 |.Front M|an.c....|
|000025c0| 54 45 58 54 4d 45 44 54 | 01 00 ff fe 00 13 00 00 |TEXTMEDT|........|
|000025d0| 00 00 54 45 58 54 4d 45 | 44 54 01 00 ff fe 00 13 |..TEXTME|DT......|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 9a ec 07 8d 00 00 | 24 8b 00 00 01 eb 4a 30 |........|$.....J0|
|00002600| 00 00 4a 28 12 00 70 08 | 61 9e 6a 9a 61 b6 30 29 |..J(..p.|a.j.a.0)|
|00002610| 00 38 48 7a 00 10 48 7a | 00 14 42 38 01 42 2f 38 |.8Hz..Hz|..B8.B/8|
|00002620| 02 46 4e 75 4a 38 01 42 | 67 fa 4e 75 50 f8 01 42 |.FNuJ8.B|g.NuP..B|
|00002630| 4e 75 00 00 00 80 7f ff | ff f0 80 80 02 08 80 00 |Nu......|........|
|00002640| a0 04 80 80 02 02 80 01 | 10 02 80 80 02 02 80 01 |........|........|
|00002650| 10 02 80 80 02 02 80 00 | a0 02 80 80 02 02 80 2a |........|.......*|
|00002660| a8 02 80 00 00 02 80 00 | 00 02 80 00 00 02 80 00 |........|........|
|00002670| 00 02 82 aa aa 82 80 00 | 00 02 88 00 00 22 80 00 |........|....."..|
|00002680| 00 00 00 78 00 03 00 00 | 00 48 00 50 00 00 00 00 |...x....|.H.P....|
|00002690| 02 f0 02 80 ff dc ff ec | 02 f4 02 94 01 02 05 28 |........|.......(|
|000026a0| 03 fc 00 01 00 00 00 48 | 00 50 00 00 00 00 02 f0 |.......H|.P......|
|000026b0| 02 80 00 50 00 20 02 80 | 0c 80 00 18 00 01 01 01 |...P. ..|........|
|000026c0| 00 00 00 01 27 0f 00 01 | 01 01 00 00 00 00 00 00 |....'...|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 09 |........|........|
|00002700| 00 09 06 4d 6f 6e 61 63 | 6f 00 00 00 04 00 05 00 |...Monac|o.......|
|00002710| 04 00 00 01 00 00 00 01 | 91 00 00 00 91 00 00 00 |........|........|
|00002720| 5a 00 00 d4 5c 02 f2 00 | 00 00 1c 00 5a 00 02 45 |Z...\...|....Z..E|
|00002730| 50 52 52 00 00 00 1a 45 | 46 4e 54 00 00 00 26 45 |PRR....E|FNT...&E|
|00002740| 54 41 42 00 00 00 32 03 | ea ff ff 00 00 00 00 00 |TAB...2.|........|
|00002750| 00 d3 44 03 eb ff ff 00 | 00 00 7c 00 00 d3 40 03 |..D.....|..|...@.|
|00002760| ec ff ff 00 00 00 89 00 | 00 d3 3c 00 00 00 00 00 |........|..<.....|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
